home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
marble madness 1
< prev
next >
Wrap
Text File
|
1999-06-15
|
1KB
|
26 lines
Category: Filter Factory Gallery A
Title: Marble Madness One...
Author: Mario Klingemann
Copyright: Copyright 1996 Visual Manipulation
ctl[0]: Amount
ctl[1]: X-Adjust
ctl[2]: Y-Adjust
ctl[3]: Order
ctl[4]:
ctl[5]:
ctl[6]:
ctl[7]:
val[0]: 26
val[1]: 0
val[2]: 0
val[3]: 0
val[4]: 0
val[5]: 0
val[6]: 0
val[7]: 0
R:put(y+val(2,0,Y),4),put(x+val(1,0,X)+(get(4)%(val(0,0,X)*2)<get(4)%(val(0,0,X)*4))*val(3,0,val(0,0,X)),3),put(get(3)%val(0,0,X)<get(3)%(val(0,0,X)*2)?0:255,5),put(get(4)%val(0,0,X)<get(4)%(val(0,0,X)*2)?0:255,6),put(scl(get(3)%val(0,0,X),0,val(0,0,X),get(5),255-get(5)),0),put(scl(get(4)%val(0,0,X),0,val(0,0,X),get(6),255-get(6)),1),put(255-c2m(get(0),get(1)),2),(get(2)<128)*(c*get(2)/128)+(get(2)>=128)*(c+(get(2)-128)*2-(c*(get(2)-128)*2/255))
G:put(255-c2m(get(0),get(1)),2),(get(2)<128)*(c*get(2)/128)+(get(2)>=128)*(c+(get(2)-128)*2-(c*(get(2)-128)*2/255))
B:put(255-c2m(get(0),get(1)),2),(get(2)<128)*(c*get(2)/128)+(get(2)>=128)*(c+(get(2)-128)*2-(c*(get(2)-128)*2/255))
A:a